home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 55 / 055.d81 / datamaker d (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  605b  |  14 lines
  1. 63000 print"[147]datamaker decimal by david pankhurst":poke53281,0
  2. 63010 input"memory start, end, and 1st line number";as,ae,ls:x=63030
  3. 63020 x$="re[211]:f[207]i=0to-1st[197]-1:r[197]x$:i=v[193](x$)=-1:n[197]:x="+str$(as)+":d[193]-1":goto63070
  4. 63030 x$="r[197]y:ify<>999t[200]p[207]x,y:x=x+1:g[207]"+str$(ls):x=63040:goto63070
  5. 63040 x$="re[212]":x=63050:goto63070
  6. 63050 fori=0to6:x$=x$+right$(str$(1e7+peek(as)),3)+",":as=as+1:i=i-(as>ae)*9
  7. 63060 next:x$="d[193] "+left$(x$,len(x$)-1):x=63090
  8. 63070 print"[147]"ls;x$:print"as="as":ae="ae":ls="ls+10":g[207]"x"";:poke631,13
  9. 63080 poke632,13:poke198,2:end
  10. 63090 ifas<=aethen63050
  11. 63100 x$="d[193] 999":x=63110:goto63070
  12. 63110 x=63000:input"ready to delete";x$
  13. 63120 print"[147]"x:print"x="x+10":g[207]63120";:poke631,13:poke632,13:poke198,2:end
  14.